﻿<ComClass(ClsAcadDataBase.ClassId, ClsAcadDataBase.InterfaceId, ClsAcadDataBase.EventsId)> _
Public Class ClsAcadDataBase

#Region "COM GUID"
    ' 这些 GUID 提供此类的 COM 标识 
    ' 及其 COM 接口。若更改它们，则现有的
    ' 客户端将不再能访问此类。
    Public Const ClassId As String = "c1471462-9709-47d7-8c5d-e29a05c740a1"
    Public Const InterfaceId As String = "aaf18c6d-eb5e-4921-a354-80cc7d0a41bf"
    Public Const EventsId As String = "607151ff-f80b-4a67-8369-5a89b440b651"
#End Region

    ' 可创建的 COM 类必须具有一个不带参数的 Public Sub New() 
    ' 否则， 将不会在 
    ' COM 注册表中注册此类，且无法通过
    ' CreateObject 创建此类。
    Public Sub New()
        MyBase.New()
    End Sub

End Class


